home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI312.ASC < prev    next >
Text File  |  1991-09-11  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 312
  10.   VERSION : 1.01x
  11.        OS : ALL
  12.      DATE : June 27, 1986                                PAGE : 1/2
  13.     TITLE : UPDATE FROM VERSION 1.01x to 1.21x
  14.  
  15.  
  16.  
  17.  
  18.   The following modifications update the Turbo Database Toolbox
  19.   from version 1.01x to 1.21x. Note that all modifications are made
  20.   to the file ACCESS.BOX.
  21.  
  22.   1.   In the procedure TaIOcheck in the file ACCESS.BOX make the
  23.        following change:
  24.  
  25.     Change from:
  26.           .
  27.           .
  28.         I := 0;
  29.         while Ord(TaName[I]) <> 0 do
  30.         begin
  31.           .
  32.           .
  33.  
  34.     Change to:
  35.           .
  36.           .
  37.         I := 1;   { Ver. 1.21x modification }
  38.         while Ord(TaName[I]) <> 0 do
  39.         begin
  40.           .
  41.           .
  42.  
  43.   2.   In the procedure GetRec in the file ACCESS.BOX make  the
  44.        following change:
  45.  
  46.     Change from:
  47.           .
  48.           .
  49.       Seek(DatF.F,R);
  50.       BlockRead(DatF.F,Buffer,1);
  51.           .
  52.           .
  53.  
  54.      Change to:
  55.           .
  56.           .
  57.       Seek(DatF.F,R);
  58.       IOstatus := IOresult;          { Ver. 1.21x addition }
  59.       TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  60.       BlockRead(DatF.F,Buffer,1);
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 312
  76.   VERSION : 1.01x
  77.        OS : ALL
  78.      DATE : June 27, 1986                                PAGE : 2/2
  79.     TITLE : UPDATE FROM VERSION 1.01x to 1.21x
  80.  
  81.  
  82.  
  83.  
  84.           .
  85.           .
  86.  
  87.   3.   In the procedure PutRec in the file ACCESS.BOX make  the
  88.        following change:
  89.  
  90.     Change from:
  91.           .
  92.           .
  93.       Seek(DatF.F,R);
  94.       BlockWrite(DatF.F,Buffer,1);
  95.           .
  96.           .
  97.  
  98.      Change to:
  99.           .
  100.           .
  101.       Seek(DatF.F,R);
  102.       IOstatus := IOresult;          { Ver. 1.21x addition }
  103.       TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  104.       BlockWrite(DatF.F,Buffer,1);
  105.           .
  106.           .
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.